home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Light ROM 3
/
Light ROM 3 - Disc 2.iso
/
programs
/
pc
/
l_parser
/
lparser3.exe
/
TREE01.LS
< prev
next >
Wrap
Text File
|
1993-11-22
|
378b
|
18 lines
# --- L-System Parser/Mutator --- Lj Lapre ----------------------------------
#
# Elaboration of example d on page 56
# with double the amount of branches
#
10
30
20
#
FAL
#
A=F[&'(.7)!BL]>(137)[&'(.6)!BL]>(137)'(.9)!(.9)A
B=F[-'(.7)!(.9)$CL]'(.9)!(.9)C
C=F[+'(.7)!(.9)$BL]'(.9)!(.9)B
#
L=~cc{+(45)f(.5)-(45)f(1)-(45)f(.5)+(45)|+(45)f(.5)-(45)f(1)-(45)f(.5)}
@